home *** CD-ROM | disk | FTP | other *** search
- echo off
- if '%1' == '' goto NO_PARMS
- goto OK
- :NO_PARMS
- echo USAGE: BTREBLD damaged_file
- goto END
- :OK
- rem
- rem 'T' to choose Test/Rebuild on opening menu, 'R' for Rebuild
- rem %1 the Btrieve file, '!' for ENTER (twice), and '###' for ESCapes
- rem
- echo TR%1!!#### >btrebld.txt
- btfiler /k:btrebld.txt
- del btrebld.txt
- :END